#!/usr/bin/perl -w 
# Randomly changes weapon upon hail, reports back weapon ID and...
# Provocating@dragonsofmist.com

sub EVENT_SAY
{
  if($text=~/Hail/i) {
	plugin::RandomWeapons(1, 11169, 50, 200, 230);
	quest::shout('Primary weapon material is ' . $npc->GetEquipmentMaterial(7));
	quest::shout('Secondary weapon material is ' . $npc->GetEquipmentMaterial(8));

  }
}
